home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #9 / Amiga Plus CD - 2004 - No. 09.iso / amigaplus / tools / amigaos4_only / ifxlite / imagefx3 / rexx / autofx / eot_gaussianblur.ifx.pre < prev    next >
Text File  |  2004-08-03  |  1KB  |  50 lines
  1. /*
  2.  * $VER: EOT_GaussianBlur.ifx.pre 2.6 (24.04.96)
  3.  * Copyright © 1992-1996 Nova Design, Inc.
  4.  *
  5.  * Written by Ola Eric Olsson
  6.  *
  7.  */
  8.  
  9. OPTIONS RESULTS
  10.  
  11. base  = 'autofx_gaussian_'
  12.  
  13. sigma   = GETCLIP(base||'sigma')
  14. radius  = GETCLIP(base||'radius')
  15. blend   = GETCLIP(base||'blend')
  16.  
  17. IF sigma  = ""; THEN sigma  = 10; ELSE sigma = TRUNC(sigma*10)
  18. IF radius = "" THEN radius = 2
  19. IF blend  = "" THEN blend  = 100
  20.  
  21. /******************************************************************/
  22. /** File requester with gadgets.                                 **/
  23. /******************************************************************/
  24.  
  25. title = '"EOT_GaussianBlur"'
  26.  
  27. text1 = '"Sigma:"'
  28. text2 = '"Radius:"'
  29. text3 = '"Blend:"'
  30.  
  31. gad.1  = 'SLIDER LE=130 TE=10 WD=150 HT=15 LB='text1' IN='sigma' LO=1 HI=100 LV=%-3ld'
  32. gad.2  = 'SLIDER LE=130 TE=30 WD=150 HT=15 LB='text2' IN='radius' LO=1 HI=3 LV=%-3ld'
  33. gad.3  = 'SLIDER LE=130 TE=50 WD=150 HT=15 LB='text3' IN='blend' LO=0 HI=100 LV=%-3ld'
  34. gad.4  = 'END'
  35.  
  36. newcomplexrequest title gad 340 100
  37. IF rc ~= 0 THEN EXIT rc
  38.  
  39. sigma  = TRUNC(RESULT.1/10,1)
  40. radius = RESULT.2
  41. blend  = RESULT.3
  42.  
  43. /* requestnotify '"Sigma = '||sigma||'"' */
  44.  
  45. CALL SETCLIP(base||'sigma', sigma)
  46. CALL SETCLIP(base||'radius', radius)
  47. CALL SETCLIP(base||'blend', blend)
  48.  
  49. EXIT
  50.